home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / mac / files / dsp / 56000tar.z / 56000tar / 56000 / flts / iir6t.asm < prev    next >
Assembly Source File  |  1991-11-26  |  1KB  |  45 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAIMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Last Update 16 Jul 87   Version 1.0
  7. ;
  8.                                                                                                                                
  9. ; IIR6 Filter Test Program
  10. ;
  11.         opt     cex,mex
  12.         page    132,66,0,10
  13.         include 'iir6'
  14.  
  15. datin   equ     $ffff           ;location in Y memory of input file
  16. datout  equ     $fffe           ;location in Y memory of output file
  17. npts    equ     20              ;number of points to process
  18. nstates equ     5               ;number of states
  19.  
  20.         org     x:0
  21. states  dsm     nstates+1       ;filter states
  22.  
  23.         org     y:0
  24. coef
  25.         dc      .8,-.7,.6,-.5,.4        ;a1,a2,a3,a4,a5
  26.         dc      .1,.2,.3,.4,.5          ;b1,b2,b3,b4,b5
  27.  
  28.         org     p:$100
  29. start
  30.         move    #states,r0      ;point to filter states
  31.         move    #nstates,m0     ;mod (nstates+1)
  32.         move    #coef,r4        ;point to filter coefficients
  33.         move    #2*nstates-1,m4 ;mod (2*nstates)
  34.  
  35.         do      #npts,_endp
  36.  
  37.         movep   y:datin,a       ;get sample
  38.  
  39.         iir6    nstates         ;do 2nd order iir
  40.  
  41.         movep   a,y:datout      ;output sample
  42. _endp
  43.         end
  44.  
  45.